home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / P-New PET 1983 / (p)l2.d64 / puzzle'plotter.l < prev    next >
Text File  |  2007-04-28  |  2KB  |  69 lines
  1. 0010 // FROM DENMARK - INSTRUTEK
  2. 0020 // DRAWS THE RESULTS FOUND BY PUZZLE'SOLVER
  3. 0030 // USES THE DATA FILE SOLUTION.DATA
  4. 0040 // PUZZLE'CREATE CREATES THE FILE PUZZLE.DATA USED BY PUZZLE'SOLVER
  5. 0050 DIM L(5,4), H(11,13), CH$ OF 16
  6. 0060 OPEN FILE 2,"SOLUTION.DATA",READ
  7. 0070 CH$:=CHR$(219)+CHR$(179)+CHR$(178)+CHR$(174)+CHR$(171)+CHR$(221)+CHR$(176)
  8. 0080 CH$:=CH$+"8"+CHR$(177)+CHR$(189)+CHR$(192)+"4"+CHR$(173)+"21 "
  9. 0090 PRINT CHR$(142),
  10. 0100 // FOR CBM-PRINTEREN:
  11. 0110 // OPEN 3,"",UNIT 4,6
  12. 0120 // PRINT FILE 3:CHR$(18)
  13. 0130 // CLOSE 3
  14. 0140 // SELECT OUTPUT "LP"
  15. 0150 NSOL:=0
  16. 0160 WHILE NOT EOF(2) DO
  17. 0170 PRINT 
  18. 0180 NSOL:+1
  19. 0190 PRINT "SOLUTION NUMBER ",NSOL
  20. 0200 PRINT 
  21. 0210 FOR I:=1 TO 5 DO
  22. 0220 FOR J:=1 TO 4 DO READ FILE 2: L(I,J)
  23. 0230 ENDFOR I
  24. 0240 FOR Z1:=1 TO 11 DO
  25. 0250 FOR Z2:=1 TO 13 DO H(Z1,Z2):=15
  26. 0260 ENDFOR Z1
  27. 0270 // S[T VANDRET
  28. 0280 FOR Z1:=1 TO 11 STEP 2 DO
  29. 0290 Z3:=1
  30. 0300 FOR Z2:=1 TO 13 DO H(Z1,Z2):-Z3; Z3:=5-(Z2=12)
  31. 0310 ENDFOR Z1
  32. 0320 // S[T LODRET
  33. 0330 FOR Z2:=1 TO 13 STEP 3 DO
  34. 0340 Z3:=8
  35. 0350 FOR Z1:=1 TO 11 DO H(Z1,Z2):-Z3; Z3:=10-8*(Z1=10)
  36. 0360 ENDFOR Z2
  37. 0370 // FJERN VANDRET
  38. 0380 FOR Z1:=1 TO 4 DO
  39. 0390 FOR Z2:=1 TO 4 DO
  40. 0400 IF L(Z1,Z2)=L(Z1+1,Z2) THEN
  41. 0410 X:=Z1*2+1; Y:=Z2*3
  42. 0420 H(X,Y-2):+1; H(X,Y-1):+5; H(X,Y):+5; H(X,Y+1):+4
  43. 0430 ENDIF 
  44. 0440 ENDFOR Z2
  45. 0450 ENDFOR Z1
  46. 0460 // FJERN LODRET
  47. 0470 FOR Z1:=1 TO 5 DO
  48. 0480 FOR Z2:=1 TO 3 DO
  49. 0490 IF L(Z1,Z2)=L(Z1,Z2+1) THEN
  50. 0500 X:=Z1*2; Y:=Z2*3+1
  51. 0510 H(X-1,Y):+8; H(X,Y):+10; H(X+1,Y):+2
  52. 0520 ENDIF 
  53. 0530 ENDFOR Z2
  54. 0540 ENDFOR Z1
  55. 0550 FOR Z1:=1 TO 11 DO
  56. 0560 FOR Z2:=1 TO 13 DO PRINT CH$(H(Z1,Z2)+1),
  57. 0570 PRINT 
  58. 0580 ENDFOR Z1
  59. 0590 PRINT 
  60. 0600 PRINT 
  61. 0610 ENDWHILE 
  62. 0620 CLOSE FILE 2
  63. 0630 PRINT CHR$(14),
  64. 0640 END 
  65. 0650 //
  66. 0660 // AVAILABLE FROM COMAL USER GROUP
  67. 0670 //                5501 GROVELAND TER
  68. 0680 //                MADISON WI 53716
  69.